home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / e / e_modules02.lha / e_modules02 / framework / myAppIcon.e < prev    next >
Encoding:
Text File  |  1996-08-17  |  406 b   |  19 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE '*wbAppIcon'
  5. MODULE 'workbench/workbench','workbench/startup'
  6.  
  7. OBJECT myAppIcon OF wbAppIcon
  8. ENDOBJECT
  9.  
  10. PROC handleDroppedIcons(argList:PTR TO wbarg,n=0) OF myAppIcon
  11.   DEF x,name[208]:STRING
  12.   FOR x:=0 TO n-1
  13.     WriteF('#\d name="\s"\n', x+1, argList[x].name)
  14.     NameFromLock(argList[x].lock,name,208)
  15.     WriteF('#\d dir="\s"\n', x+1,name)
  16.   ENDFOR
  17.   WriteF('\n')
  18. ENDPROC
  19.